home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / netmail / logon.wcx (.txt) < prev    next >
Wildcat! WCX  |  1995-01-09  |  2KB  |  84 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1663 bytes  01/31/123  10:07:42pm
  3. '! Code Segment Size  :1620 bytes
  4. '! Data Segment Size  :5208 bytes
  5. '! String Segment Size:43 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Sub Sub985
  9.       Declare Sub Sub1301
  10.  
  11.       Dim s4463 As String*25
  12.       Dim s4488 As String*30
  13.       Dim i4518 As Integer
  14.       Dim dt5170 As DateTime
  15.       Dim l5176 As Long
  16.       Dim i5180(1 To 12) As Integer
  17.       Dim s5204 As String
  18.  
  19.       CurrentDateTime dt5170
  20.       s5204 = FormatDate(dt5170.D, "yy")
  21.       i5180(1) = 0
  22.       i5180(2) = i5180(1) + 31
  23.       If Val(s5204) = 96 Then
  24.         i5180(3) = i5180(2) + 29
  25.       Else
  26.   248   i5180(3) = i5180(2) + 28
  27.       End If
  28.   314 i5180(4) = i5180(3) + 31
  29.       i5180(5) = i5180(4) + 30
  30.       i5180(6) = i5180(5) + 31
  31.       i5180(7) = i5180(6) + 30
  32.       i5180(8) = i5180(7) + 31
  33.       i5180(9) = i5180(8) + 31
  34.       i5180(10) = i5180(9) + 30
  35.       i5180(11) = i5180(10) + 31
  36.       i5180(12) = i5180(11) + 30
  37.       Sub1301
  38.       s4463 = User.Name
  39.       s4488 = User.From
  40.       Open "c:\fd\lastcall.fd" For Binary As 1
  41.       Sub985
  42.       Close 1
  43.  
  44. '! Called 1 time
  45.       Sub Sub985
  46.         Dim l65530 As Long
  47.         Dim i65534 As Integer
  48.  
  49.         Seek 1, 0
  50.         i4518 = Len(s4463)
  51.         Print #1, Chr(i4518); s4463;
  52.         Seek 1, 32
  53.         i4518 = Len(s4488)
  54.         Print #1, Chr(i4518); s4488;
  55.         Seek 1, 73
  56.  1105   For i4518 = 1 To 8 Step 1
  57.           Print #1, Chr(0);
  58.         Next
  59.  1187   Seek 1, 81
  60.         Print #1, Chr(l5176 And 255);
  61.         Print #1, Chr(l5176 And 65280 / 256);
  62.         Print #1, Chr(l5176 And 16711680 / 65536);
  63.         Print #1, Chr(l5176 And -16777216 / 1.67772e+07);
  64.       End Sub
  65.  
  66. '! Called 1 time
  67.       Sub Sub1301
  68.         s5204 = FormatTime(dt5170.T, "mm")
  69.         l5176 = Val(s5204) * 60
  70.         s5204 = FormatTime(dt5170.T, "hh")
  71.         l5176 = l5176 + Val(s5204) * 60 * 60
  72.         s5204 = FormatDate(dt5170.D, "dd")
  73.         l5176 = l5176 + (Val(s5204) - 1) * 60 * 60 * 24
  74.         s5204 = FormatDate(dt5170.D, "mm")
  75.         l5176 = l5176 + 60 * 60 * 24 * i5180(Val(s5204))
  76.         s5204 = FormatDate(dt5170.D, "yy")
  77.         l5176 = l5176 + (Val(s5204) - 94) * 31536000
  78.         l5176 = l5176 + 757382400
  79.         If Val(s5204) > 96 Then
  80.           l5176 = l5176 + 60 * 60 * 24
  81.         End If
  82.  1617
  83.       End Sub
  84.